home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / desktop / bdesk234.zip / RESTART.ZIP / RESTART.PAS < prev   
Pascal/Delphi Source File  |  1991-09-05  |  346b  |  13 lines
  1. program Restart;
  2.  
  3. {Courtesy of SP Services, publishers of BackDesk - not at all copyright}
  4. {SP Services, +44 703 550037, or sphipps@cix.compulink.co.uk}
  5.  
  6. uses WinProcs, WinTypes;
  7. var
  8.     junk2    :    integer;
  9.  
  10. begin
  11.     IF ExitWindows($42,$42) = FALSE
  12.     THEN junk2 := MessageBox(0, 'An Application Did Not Terminate','Restart Failed', mb_OK)
  13. end.